home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / disk eraser (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  54 lines
  1. 10 a=a+1:ifa=1thenload"moveit.o",8,1
  2. 20 poke808,239:poke792,193
  3. 30 poke53280,.:poke53281,.
  4. 40 print"[147][159]     [196]ispute?'s [199]azelle presents:"
  5. 50 print"     [195][207][205][205][207][196][207][210][197] 64/128 [196][201][211][203] [197][210][193][211][197][210]"
  6. 60 print"[129]           [160][194]y [205]ike [205]aynard"
  7. 70 print"[149]  [195]opyright 1987, [206]o rights reserved"
  8. 80 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  9. 90 print"    [208]roceeding to erase your disk ..."
  10. 100 print"[158]                                        ";
  11. 110 print"     [196]o not press the [210][213][206]/[211][212][207][208] key!     ";
  12. 120 print"                                        "
  13. 122 mm$=""
  14. 125 open15,8,15:open8,8,8,"#"
  15. 130 fortr=1to35
  16. 135 print#15,"u1:8 0"tr;.
  17. 140 printmm$"[197]rasing [212]rack:"tr
  18. 150 gosub200:next
  19. 160 close8:close15
  20. 170 print"[154][215]ould you like to erase another?"
  21. 175 print"([209][154],[210][154],[217][154],[212][154],[206][154],[[210][197][212][213][210][206][154]])?":poke198,.
  22. 180 geta$
  23. 185 ifa$<>"q"anda$<>"r"anda$<>"y"anda$<>"t"anda$<>"n"anda$<>chr$(13)then180
  24. 190 ifa$="n"then6000
  25. 195 print"[207]k, here goes ...":fora=1to1000:next:goto20
  26. 200 ifpeek(145)<>127thenreturn
  27. 205 close8:close15:poke53280,peek(162):poke53281,peek(162)
  28. 210 fordd=1to100:poke53270,peek(53270)or16
  29. 215 r=peek(162)
  30. 220 ifr>100thenpoke53265,peek(53265)or32
  31. 230 ifr<100thenpoke53265,peek(53265)and255-32
  32. 240 ad=int(rnd(0)*980)+1024
  33. 250 sys49152,57344,57344+20,ad
  34. 255 sys49152,40960,40960+20,ad+54272
  35. 260 next
  36. 270 fora=1to500:ifpeek(145)=127then290
  37. 280 next
  38. 290 poke53265,peek(53265)and255-32
  39. 300 poke53270,peek(53270)and255-16
  40. 305 poke53270,peek(53270)and255-8
  41. 310 fora=1to1500:next
  42. 315 poke53270,peek(53270)or8
  43. 320 poke53280,14:poke53281,6
  44. 330 print"[147]"chr$(142)"[154]    **** commodore 64 basic v2 ****"
  45. 340 print" 64k ram system  38911 basic bytes free"
  46. 350 print"ready.":poke204,.
  47. 360 fora=1to4500:next
  48. 370 a$="i told you not to press run/stop!!"
  49. 380 fora=1tolen(a$):printmid$(a$,a,1);
  50. 390 forb=1to10:nextb,a
  51. 400 fora=1to4500:next:poke204,1:goto20
  52. 6000 open15,8,15,"r0:connect=connect":input#15,er:close15:ifer<>63thenend
  53. 6010 poke808,237:poke792,71:load"connect",8
  54.